home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / thunder loader.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  598b  |  20 lines
  1. 1 REM THE THUNDERER BY JOHN PHILLIP
  2. 2 REM SOUSA FOR THE C-64 BY RICH WORTHLEY
  3. 10 IFA<>0THEN35
  4. 15 POKE56,97:POKE52,97
  5. 20 PRINT"[147]"TAB(11)"BOGUS BUNNY MUSIC"
  6. 25 PRINT""TAB(15)"PRESENTS"
  7. 30 A=1:LOAD"THE THUNDERER",8,1
  8. 35 POKE53280,6:POKE53281,1:TI$="000000"
  9. 40 BA=29965:SYSBA+155
  10. 50 PRINT"[147]"TAB(13)"THE THUNDERER"
  11. 55 PRINT""TAB(10)"BY JOHN PHILIP SOUSA"
  12. 60 PRINT"ARRANGED FOR THE COMMODORE 64"
  13. 65 PRINT""TAB(12)"BY RICH WORTHLEY"
  14. 70 IFPEEK(789)<>234THEN70
  15. 75 PRINT"[147][144]"TAB(14)"THE END!"
  16. 80 PRINT"CARE TO HEAR IT AGAIN (Y OR N)?"
  17. 85 GETAA$:IFAA$=""THEN85
  18. 90 IFAA$="Y"THEN35
  19. 95 IFAA$="N"THENPRINT"[147]";:POKE53280,14:POKE53281,6:POKE646,14:END
  20.